home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / ME2MUTT.ZIP / HPTERM.MUT < prev    next >
Text File  |  1992-11-09  |  750b  |  27 lines
  1.   ;; hpterm.mut : Setup HP terminal softkeys and activate them
  2.   ;; C Durland    Public Domain
  3.  
  4. (include me2.h)
  5.  
  6. (defun
  7.   turn-on-hp-keys MAIN
  8.   {
  9.     ;; program the function keys
  10.     (puts "^[&f0a1k5d2L   f1^[p")(puts "^[&f0a2k5d2L   f2^[q")
  11.     (puts "^[&f3k0a5d2L   f3^[r")(puts "^[&f4k0a5d2L   f4^[s")
  12.     (puts "^[&f5k0a5d2L   f5^[t")(puts "^[&f6k0a5d2L   f6^[u")
  13.     (puts "^[&f7k0a5d2L   f7^[v")(puts "^[&f8k0a5d2L   f8^[w")
  14.     ;(puts "^[&jB")    ; Turn on soft key labels
  15.     (puts "^[&s1A")    ; Turn on transmit functions
  16.   }
  17.   turn-off-hp-keys
  18.   {
  19.     (puts "^[&s0A")    ; Turn off transmit functions
  20.   }
  21.   MAIN
  22.   {
  23.     (register-hook ENTER-ME-HOOK "turn-on-hp-keys")
  24.     (register-hook LEAVE-ME-HOOK "turn-off-hp-keys")
  25.   }
  26. )
  27.